home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1999 #2
/
Amiga Plus CD - 1999 - No. 2.iso
/
Anwender
/
Office
/
AmigaWriter
/
Install
/
AmigaWriter Install-Script
next >
Wrap
Text File
|
1998-09-23
|
15KB
|
514 lines
;*************************************************************************
;* AmigaWriter CD-Installer Version 1.01 25 August 1998 *
;* *
;* ©1998 HAAGE & PARTNER Computer GmbH *
;* *
;* If you have any installer questions please let us know! *
;* *
;*************************************************************************
;
; $VER: AmigaWriter V1.04 Install Version 1.0 (23.09.98)
(complete 0)
; Die Versionsnummer und das Erstellungs-Datum der hier installierten
; Versionen.
(set #amigawriter-version "Version 1.04")
(set #amigawriter-date "(23.09.98)")
; // Die Dateigrößen
(set #size-komplett 2) ; MByte CD-Installation
;====================================================================
; Initialisierungen
; --- English strings ---
(set #yeskey "Yes")
(set #nokey "No")
(set #wrongos "\n Sorry, you will need OS2.04 or better\n")
(set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use AmigaWriter\n")
(set #welcome (cat "\n\n"
"Welcome to the installation of the new word processor AmigaWriter\n\n"
""#amigawriter-version " of "#amigawriter-date"\n\n"
"This script copies the whole word processor an some\n"
"new system librarys to your harddisk!\n\n"
"© 98 HAAGE&PARTNER Computer GmbH\n"
))
(set #install_wizardlib
"Copying the Wizard.Library")
(set #install_wizardlib_help
"The Library makes very short programms!")
(set #install_applib
"Copying the Appmanager.Library")
(set #install_applib_help
"The Library makes very short programms!")
(set #oldversion (cat "\n"
"There is an old version of AmigaWriter on your\n"
"harddisk!\n"
"" (getassign "AmigaWriter") "\n"
))
(set #oldversion_help (cat "\n"
"Choose an option!\n"
""
))
(set #new "New installation")
(set #drueber "Update your existing version of AmigaWriter")
(set #remove "Remove AmigaWriter")
(set #chose_path (cat "\n"
"Please chose a drive and folder for installation.\n"
"A folder AmigaWrite will be generated automatically.\n"
))
(set #chose_path_help "Please chose a path.")
(set #fonterror (cat "\n"
"FONTPROBLEM found:\n\n"
"The following Compugrahic fonts:\n\n"
"CGTimes, CGTriumvirate und LetterGothic\n\n"
"must be installed.\n\n"
"You can find these font on your Amiga system disks."
))
(set #endsuccess "\n\nInstallation successfull")
(if (= @language "deutsch") (
(set #yeskey "Ja")
(set #nokey "Nein")
(set #wrongos "\n Sorry, dieses Paket benötigt mind. OS2.04.\n")
(set #wrongcpu "\n Sorry, das AmigaWriter-Paket setzt eine 68020 CPU voraus!\n")
(set #welcome (cat "\n\nWillkommen bei der Installation der neuen\n"
"Textverarbeitung AmigaWriter.\n\n"
""#amigawriter-version " vom "#amigawriter-date"\n\n"
"Dieses Skript kopiert die verschiedenen\n"
"Dateien und Bibliotheken, aus denen sich AmigaWriter\n"
"zusammensetzt auf Ihre Festplatte.\n\n"
"© 98 HAAGE&PARTNER Computer GmbH\n"
))
(set #install_wizardlib
"Kopiere die Wizard.Library")
(set #install_wizardlib_help
"Sie ist für die sehr kurzen Programme verantwortlich!")
(set #install_applib
"Kopiere die Appmanager.Library")
(set #install_applib_help
"Sie ist für die sehr kurzen Programme verantwortlich!")
(set #oldversion (cat "\n"
"Auf Ihrer Festplatte befindet sich bereits\n"
"eine Installation von AmigaWriter!\n"
"" (getassign "AmigaWriter") "\n"
))
(set #oldversion_help (cat "\n"
" Wählen Sie einfach die bereits vorhandene\n"
"Schublade an, wenn Sie AmigaWriter\n"
"aktualisieren möchten!\n\n"
"Ihr alten Voreinstellungen werden\n"
"dadurch vermutlich ÜBERSCHRIEBEN!"
))
(set #new "Neu installieren")
(set #drueber "Update über bisherige Version installieren")
(set #remove "Deinstallation - AmigaWriter entfernen")
(set #chose_path (cat "\n"
"Bitte wählen Sie ein Laufwerk oder/und eine Schublade für die Installation.\n"
"Eine neue Schublade \"AmigaWriter\" wird automatisch generiert.\n"
))
(set #chose_path_help "Please chose a path.")
(set #fonterror (cat "\n"
"FONTPROBLEM entdeckt:\n\n"
"Es müssen die Compugraphic-Fonts:\n\n"
"CGTimes, CGTriumvirate und LetterGothic\n\n"
"zwingend installiert sein.\n\n"
"Die Fonts gehören zum Betriebssystem. Sie werden Sie daher"
" auf Ihrem Diskettensatz zum Betriebssystem finden\n"
))
(set #endsuccess "\n\nInstallation erfolgreich beendet")
))
(set #os-version (/ (getversion) 65536))
(set #os-13 (< #os-version 36))
(set #os-20 (>= #os-version 36))
(set #os-21 (>= #os-version 38))
; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------
(set #wizardlib (tackon (pathonly @icon) "SYS-Libs/wizard.library"))
(set #applib (tackon (pathonly @icon) "SYS-Libs/appmanager.library"))
(set #awall (tackon (pathonly @icon) "AmigaWriter-SYS"))
;=====================================================================================
; // Beginn der Installation
;=====================================================================================
; ----------------------------- Prozeduren ------------------------------
(Procedure @Make_Folder
(
(set #folder (tackon #folder "AmigaWriter"))
(if (= (exists #folder) 0)
(
(makedir #folder (infos))
)
(
(set #update 1) ; // Doch schon vorhanden!
)
)
)
)
; // wird min. unter 2.04 installiert ?
(if (= #os-13 1)
(
(message #wrongos)
(exit (quiet))
)
)
(if (patmatch "68000|68010" (database "cpu"))
(
(message #wrongcpu)
(exit (quiet))
)
)
(onerror (
(if (> @ioerr 0)
(message (cat "\n ERROR CODE: " @ioerr "\n\n"))
)
))
; // Eine kleine Änderung to enable das script zu laufen (deutsch??).
;(run "ASSIGN ENV: WarpUP-WarpOS/ENV/ ADD")
; // Eine kleine Einleitung, gefolgt vom Startbild des Installers.
(message #welcome)
;(welcome)
(complete 2)
(set setpatchvernum (getversion "C:SetPatch"))
(set setpatchver (/ setpatchvernum 65536))
(set setpatchrev (- setpatchvernum (* setpatchver 65536)))
; // Alte Version prüfen und entsprechende Abfrage ausgeben!--------------------------------------------
(set #folder "Work:")
(set #update 0)
(if (exists "AmigaWriter:" (noreq))
(
(set #update
(askchoice
(prompt #oldversion)
(help #oldversion_help)
(default 1)
(choices
#new
#drueber
; #remove
)
)
)
)
)
(if (<> #update 0) ; // altes Assign benutzen wenn update oder remove
(
(set #folder (getassign "AmigaWriter"))
)
)
(complete 30)
(if (= #update 0)
(
(set ok 0)
(while (not ok)
(set #folder
(askdir
(prompt #chose_path)
(help #chose_path_help) ; // Auswahl Hilfetext
(default #folder)
(disk)
)
)
(@Make_Folder) ; // Automatisch neues Verzeichnis anlegen!
(set #dir_error (cat "\n"
"Your selection \"" #folder "\" is not a\n"
"valid device or drawer!\n\n"
"Select 'Show drives' to get an overview of all\n"
"devices available on your Amiga.\n"
"Please select one of the devices on top of\n"
"the list.\n"
"Typical names are f.i. \"WORK:\", \"HD0:\" or \"DH0\"\n"
"Do not use \"DF0:\", \"DF1:\", \"DF2:\",\n"
"\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
"\"WB_2.x:\", \"System3.0:\" or \"WB_3.x:\"!\n\n"
))
(set #memory_error (cat "\n"
"There is not enough free disk space at the\n"
"device you have selected for the installation.\n\n"
"Free diskspace " freediskspace "!\n"
"Diskspace needed " size-komplett "!\n\n"
"Please select a another device or harddisk!"
))
(if (= @language "deutsch") (
(set #dir_error (cat "\n"
"Bei Ihrer Auswahl \"" #folder "\" handelt es \n"
"sich nicht um eine gültige Schublade! \n"
" \n"
"Sie können über das Symbol 'Laufwerke anz.' \n"
"(bzw. 'Show drives') eine Übersicht über alle \n"
"Laufwerke Ihres Amiga anfordern; aus dieser \n"
"Übersicht sollten Sie nur die oberen, nicht \n"
"farblich gekennzeichneten Einträge auswählen. \n"
"Über den Schalter \"Neue Schublade anlegen..\"\n"
"können Sie ein neue Schublade erzeugen. Diese \n"
"neue Schublade wird auf der Partition \n"
"angelegt, die Sie soeben betrachten."
))
(set #memory_error (cat "\n"
"Auf der ausgewählten Festplattenpartition \n"
"steht nicht genügend freier Speicher für die \n"
"komplette Installation des Compilersystems zur\n"
"Verfügung. \n"
" \n"
"Freier Speicher " freediskspace "! \n"
"Benötigter Speicher " size-komplett "! \n"
" \n"
"Bitte wählen Sie eine andere Partition, auf \n"
"der entsprechende Kapazitäten vorhanden sind!"
))
))
(if (= @language "italiano") (
(set #dir_error (cat "\n"
"La vostra selezione (\"" #folder "\") non è\n"
"un disco o un cassetto valido!\n\n"
"Selezionate 'Dischi' per avere una lista dei\n"
"dischi disponibili sul vostro Amiga.\n"
"Alcuni nomi tipici sono \"WORK:\", \"HD0:\" o \"DH0\"\n"
"NON usate \"DF0:\", \"DF1:\", \"DF2:\",\n"
"\"DF3:\", \"RAD:\", \"RAM:\", \"System2.0:\",\n"
"\"WB_2.x:\", \"System3.0:\" o \"WB_3.x:\"!\n\n"
))
(set #memory_error (cat "\n"
"Il disco che avete selezionato non ha\n"
"abbastanza spazio libero.\n\n"
"Spazio disponibile " freediskspace "\n"
"Spazio richiesto " size-komplett "\n\n"
"Provate a selezionare un altro disco."
))
))
; // Ist der Dateiname leer oder endet mit einem ':' oder existiert unter
; // diesem Namen kein Verzeichnis, wird eine Fehlermeldung angezeigt; andernfalls
; // kann die Auswahl-Schleife beendet werden.
(if (or (or (or (<= (strlen #folder) 0) (= (substr #folder (- (strlen #folder) 1) 1) ":")) (= (exists #folder (noreq)) 0)) (= (getdiskspace #folder) -1))
(message #dir_error) ; Fehler bei der Auswahl der Schublade
;else
(
(set freediskspace (getdiskspace #folder)) ; // Der freie Speicher auf diesem Medium
(if (< freediskspace size-komplett)
(
(user 1)
(message #memory_error) ; // nicht genügend freier Speicher
)
;else
(set ok 1)
)
)
)
)
)
)
; Libs auf die Platte kopieren
(complete 50)
(copyfiles
(prompt #install_all)
(help #install_all_help)
(source #awall)
(dest #folder)
(all)
(confirm)
)
(complete 70)
(copylib
(prompt #install_wizardlib)
(help #install_wizardlib_help)
(source #wizardlib)
(dest "libs:")
(confirm)
)
(complete 90)
(copylib
(prompt #install_applib)
(help #install_applib_help)
(source #applib)
(dest "libs:")
(confirm)
)
;============= Startup ändern =====================================================
(set #startuptemp (cat "\nASSIGN AMIGAWRITER: " #folder "\n"))
(set #startup (cat "\n"
"To get AmigaWriter work well there has to be made\n"
"some changes to your User-Startup.\n\n"
#startuptemp
))
(set #endnow (cat "Installation of AmigaWriter V1.0 completed.\n"
"When the lines:\n" #startuptemp "\ndo not appear\n"
"in your Startup-Sequence or User-Startup,\n"
"please do it manually.\n\n"
"Remove all disks and start your new word processor.\n\n"
"Best wishes..."
"HAAGE & PARTNER"
))
(if (= @language "deutsch") (
(set #startup (cat "\n"
"Um mit AmigaWriter richtig arbeiten zu können, muß \n"
"eine Änderung an der User-Startup vorgenommen \n"
"werden: \n"
" \n"
#startuptemp
))
(set #endnow (cat "\n"
"Installation Ihrer neuen Textverarbeitung AmigaWriter beendet.\n\n"
"Falls die Zeile:\n" #startuptemp "\n"
"nicht in Ihre User-Startup eingefügt wurde, \n"
"dann holen Sie dies bitte nach. \n\n"
"Entfernen Sie nun die Diskette aus Ihrem \n"
"Laufwerk und starten Sie StormC. \n\n"
"Wir wünschen Ihnen viel Erfolg!\n"
))
))
(if (= @language "italiano") (
(set #startup (cat "\n"
"Per completare l'installazione dello AmigaWriter\n"
"sono necessarie alcune modifiche alla User-Startup.\n\n"
#startuptemp
))
(set #endnow (cat "L'installazione dello AmigaWriter V1.0 è terminata.\n"
"Se le righe\n" #startuptemp "\nnon compaiono nella Startup-Sequence\n"
"o nella User-Startup, eseguitele manualmente.\n\n"
"Rimuovete tutti i dischi e avviate lo AmigaWriter.\n\n"
"Con i migliori auguri..."
"HAAGE & PARTNER"
))
))
(startup "AmigaWriter"
(prompt #startup)
(help #help-startup)
(command #startuptemp)
)
(makeassign "AMIGAWRITER")
(makeassign "AMIGAWRITER" #folder)
(if (= (exists "Fonts:CGTimes.font") 0)
(
(message #fonterror)
)
)
(if (= (exists "Fonts:CGTriumvirate.font") 0)
(
(message #fonterror)
)
)
(if (= (exists "Fonts:LetterGothic.font") 0)
(
(message #fonterror)
)
)
(if (= (exists "Fonts:CGTimes.otag") 0)
(
(message #fonterror)
)
)
(if (= (exists "Fonts:CGTriumvirate.otag") 0)
(
(message #fonterror)
)
)
(if (= (exists "Fonts:LetterGothic.otag") 0)
(
(message #fonterror)
)
)
(if (<= setpatchver 40)
(if (<= setpatchrev 16)
(message
((cat "\n\nWrong Setpatch-Version\n\n"
"You have installed version "setpatchver"."setpatchrev" of SetPatch\n\n"
"Please install a new one!")
))
)
)
(complete 100)
(exit #endsuccess (quiet))